home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / amos / PrgCollection.lha / Demo9.AMOS / Demo9.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1994-03-12  |  3.1 KB  |  87 lines
  1. ' *************************************
  2. ' *                                   *
  3. ' *            Demo 9 V1.0            *
  4. ' *      Written by Chris Hodges      *
  5. ' *                                   *
  6. ' *************************************
  7. '
  8. Load "V42.abk",3
  9. Hide : Unpack 11 To 0 : Screen Hide 0
  10. For Y=0 To 5
  11.   For X=0 To 9
  12.     Get Block X+Y*10+32,X*32,Y*32,32,32,0
  13.   Next 
  14. Next 
  15. Screen Open 4,16,16,16,0
  16. Flash Off : Screen Hide 4 : Get Palette 0
  17. Screen Open 1,768,32,16,0
  18. Curs Off : Flash Off : Cls 0 : Get Palette 0
  19. Screen Display 1,112,40,352,32
  20. Screen Close 0
  21. Unpack 9 To 2
  22. For A=0 To 3
  23.   Colour 17+A*4,$FF0 : Colour 18+A*4,$A80 : Colour 19+A*4,$530
  24. Next 
  25. Unpack 10 To 3
  26. Set Rainbow 0,0,232,"","",""
  27. For A=0 To 31
  28.   Rain(0,A)=A/2
  29.   Rain(0,225-A)=A/2
  30.   Rain(0,160+A/2)=(A/4)*$10
  31.   Rain(0,191-A/2)=(A/4)*$10
  32. Next 
  33. Rainbow 0,0,40,232
  34. A$="L R0=0; L R1=750; L R2=29; L X=219; "
  35. A$=A$+"A: P; L Y=R0+R1/10; L R1=R1+R0; L R0=R0+2; I R1<1400 J B; L R0=2-R0; L RA=1; J B; "
  36. A$=A$+"B: L X=R2/4+X; I X>219 J C; L R2=R2+1; J A; "
  37. A$=A$+"C: L R2=R2-1; J A; "
  38. S$="s8AND AGAIN HERE IS CHRISTOPHER HODGES PRESENTING A NEW INTRO!fh3    DO YOU"
  39. S$=S$+" LIKE IT???     s7 s6YES?   s7Gs8OOD!s9        HAVE YOU NOTs8ICED s7THAT s6THIS "
  40. S$=S$+"Ss5CROLLER IS OVERSCANNED?     NOW A LITTLE QUIZ!"
  41. S$=S$+"s6   s7   s8  HOW DO YOU THINK HAVE I MADE THE LOGO ANIMATE?"
  42. S$=S$+" s7 s6 s5 s4  A) BOBS h2   B) SPRITESh2    C) FLASH h2  D) SHIFT h2s8 "
  43. S$=S$+"NOW PRESS THE RELEVANT KEY:    w    s7  s6AFTER THIS SOME GREETINGS "
  44. S$=S$+"TO HENDRIK H. HEIMEfR,   MICHAEL BERCHTOLfD,   MAD HENRfY,   MR. SNOOPfY,   JARfO,"
  45. S$=S$+"   HANS-PETEfR,   DIE ZWILLINGfE AND s9TO saALL sbOTHscER AMsdIGA UseSERS!sf!!      "
  46. S$=S$+"      s8THATS ALL I WANT TO SAY,     SEE YA SOON!        BYE!                     "
  47. SP=1
  48. Screen 1
  49. Screen Clone 0
  50. Screen Display 0,,234,,
  51. Autoback 0 : Bob Update Off 
  52. Screen 2
  53. Sprite 0,234,100,1
  54. Channel 0 To Sprite 0
  55. Amal 0,A$
  56. Amal On 
  57. Shift Up 3,1,14,1
  58. Screen 1
  59. Music 1 : Tempo 17
  60. I=0
  61. Repeat 
  62.   If CO>0 Then Colour CO,$FFF : Inc CO : Colour CO,$FFF : Inc CO : If CO>15 Then CO=0 : Fade 2 To 4
  63.   If H=0 Then Add XX,SP : Add PX,SP : If PX>31 Then PX=PX-32 : If XX>383 Then XX=XX-384 : Gosub NL Else Gosub NL
  64.   H=Max(H-1,0) : Screen Offset 1,XX+40+SP, : Screen Offset 0,XX+40+SP, : Wait Vbl 
  65.   If I Then Gosub ANSWER
  66.   If Mouse Key=2 Then Inc H
  67. Until Mouse Key=1
  68. Amal Off : Sprite Off : Music Off 
  69. Screen Close 0 : Screen Close 1 : Screen Close 2 : Screen Close 3 : Screen Close 4
  70. Rainbow Del 
  71. View 
  72. End 
  73. ANSWER:
  74.   I$=Upper$(Inkey$)
  75.   If(I$="A") or(I$="B") or(I$="C") Then S=0 : A$="   THAT IS WRONG! SORRY!  TRY AGAIN!                                                                          "
  76.   If I$="D" Then S=0 : A$="    VERY GOOD!         r"
  77. Return 
  78. NL:
  79.   If I=0 Then Add S,1,1 To Len(S$) : B=Asc(Mid$(S$,S,1))
  80.   If I Then Add S,1,1 To Len(A$) : B=Asc(Mid$(A$,S,1))
  81.   If B=102 Then CO=1 : Goto NL
  82.   If B=104 Then Inc S : H=Val(Mid$(S$,S,1))*20 : Goto NL
  83.   If B=119 Then SO=S : Inc SO : S=0 : I=1 : A$="  " : Goto NL
  84.   If B=114 Then S=SO : Inc S : I=0 : Goto NL
  85.   If B=115 Then Inc S : SP=Val("$"+Mid$(S$,S,1))+1 : Goto NL
  86.   Put Block B,384+XX-PX,0 : Put Block B,XX-PX,0
  87. Return